home *** CD-ROM | disk | FTP | other *** search
/ Aminet 23 / Aminet 23 (1998)(GTI - Schatztruhe)[!][Feb 1998].iso / Aminet / text / edit / BlacksEditor.lha / BlacksEditor / Install_BED < prev    next >
Text File  |  1997-12-03  |  4KB  |  175 lines
  1. ; Install-Script for Blacks Editor 1.0
  2.  
  3. (set #installing "Installing ")
  4.  
  5. (set #bad-kick
  6.    (cat "\n\nSorry! You must have Workbench 2.04 or"
  7.         "\nhigher to to use this package."
  8.         "\n\nAborting Installation!"))
  9.  
  10.  
  11. (complete 0)
  12.  
  13. (if (< (getversion) (* 37 65536))
  14.         (abort #bad-kick)
  15. )
  16.  
  17. ; determine cpu type
  18. (set cpu (database "cpu"))
  19.  
  20. (set defcpu
  21.      (if (OR (= cpu "68000") (= cpu "68010"))
  22.           (set defcpu 0)
  23.           (set defcpu 1)
  24.      )
  25. )
  26.  
  27. (set @default-dest
  28.      (askdir
  29.           (prompt "In which directory would you like Blacks Editor installed?\n(A directory will be created there.)")
  30.           (help @askdir-help)
  31.           (default @default-dest)
  32.      )
  33. )
  34.  
  35. (set maindir (tackon @default-dest "BlacksEditor"))
  36. (set @default-dest maindir)
  37.  
  38. (set eucver
  39.      (askchoice
  40.           (prompt "Which executable of Blacks Editor would you like installed?")
  41.           (help @askchoice-help)
  42.           (choices "68000" "68030+")
  43.           (default defcpu)
  44.      )
  45. )
  46.  
  47. (set rexxdir
  48.      (askdir
  49.           (prompt "In which directory would you like Blacks Editor's ARexx scripts installed?")
  50.           (help @askdir-help)
  51.           (default (tackon maindir "Rexx"))
  52.           (newpath)
  53.      )
  54. )
  55.  
  56. (set helpdir
  57.      (askdir
  58.           (prompt "In which directory would you like Blacks Editor's AmigaGuide documentation installed?")
  59.           (help @askdir-help)
  60.           (default maindir)
  61.           (newpath)
  62.      )
  63. )
  64.  
  65. (select eucver
  66.      (copyfiles
  67.           (prompt "Copying main executable (68000)...")
  68.           (help @copyfiles-help)
  69.           (source "BED")
  70.           (dest maindir)
  71.           (infos)
  72.           (optional "nofail")
  73.      )
  74.  
  75.      (copyfiles
  76.           (prompt "Copying main executable (68030+)...")
  77.           (help @copyfiles-help)
  78.           (source "BED030+")
  79.           (dest maindir)
  80.           (infos)
  81.           (newname "BED")
  82.           (optional "nofail")
  83.      )
  84. )
  85.  
  86. (complete 25)
  87.  
  88. (copyfiles
  89.      (help @copyfiles-help)
  90.      (source "Docs/BED.guide")
  91.      (dest helpdir)
  92.      (infos)
  93.      (optional "nofail")
  94. )
  95.  
  96. ; .guide file uses AmigaGuide instead of MultiView for OS <= V38
  97. (set ver (/ (getversion) 65536))
  98.  
  99. (if (<= ver 38)
  100.      (tooltype
  101.           (dest (tackon maindir "BED.guide"))
  102.           (setdefaulttool "AmigaGuide")
  103.      )
  104. )
  105.  
  106. (complete 30)
  107.  
  108. (copyfiles
  109.      (prompt "Copying ARexx scripts...")
  110.      (help @copyfiles-help)
  111.      (source "Rexx")
  112.      (dest rexxdir)
  113.      (all)
  114.      (infos)
  115.      (optional "nofail")
  116. )
  117.  
  118. (complete 50)
  119.  
  120. ; Support files (required)
  121. (copyfiles
  122.      (prompt "Copying Blacks Editor support files...")
  123.      (help @copyfiles-help)
  124.      (source "Support")
  125.      (dest (tackon maindir "Support"))
  126.      (all)
  127.      (infos)
  128.      (optional "nofail")
  129. )
  130.  
  131. (complete 65)
  132.  
  133. ; Icons (optional)
  134. (copyfiles
  135.      (prompt "Copying Blacks Editor icons...")
  136.      (help @copyfiles-help)
  137.      (source "Icons")
  138.      (dest (tackon maindir "Icons"))
  139.      (all)
  140.      (infos)
  141.      (optional "nofail")
  142. )
  143.  
  144. (complete 80)
  145.  
  146. ; Catalogs (optional)
  147. (copyfiles
  148.      (prompt "Copying Blacks Editor catalog files...")
  149.      (help @copyfiles-help)
  150.      (source "Catalogs")
  151.      (dest (tackon maindir "Catalogs"))
  152.      (all)
  153.      (confirm)
  154.      (infos)
  155.      (optional "nofail")
  156. )
  157.  
  158. (complete 95)
  159.  
  160. (set #startup-cmd (cat "Assign BED: " maindir "\nPath BED: " "BED:" (fileonly rexxdir) " ADD"))
  161. (startup "BED"
  162.      (prompt (cat "Adding the command\n\n" #startup-cmd "\n\nto your s:User-Startup."))
  163.      (help @startup-help)
  164.      (command #startup-cmd)
  165. )
  166.  
  167. (makeassign "BED" maindir)
  168.  
  169. (run "More IMPORTANT!")
  170.  
  171. (complete 100)
  172.  
  173. (exit)
  174.  
  175.